R #1Il faut deux packages necessaires à installer pour compiler le Rmd avec la fonction install.packages(“rmarkdown”) et install.packages(“knitr”) : rmarkdown et knitr
library(readr)
library(zoo)
library(astsa)
library(stats)
Nice : https://github.com/bilelsanhaji/EdSTM1/blob/main/Data/SH_MIN006088001.csv
Paris : https://github.com/bilelsanhaji/EdSTM1/blob/main/Data/SH_MIN175114001.csv
Donnez une représentation graphique des données d’insolation de Nice
et Paris. Graphez les moyennes respectives à l’aide de la fonction
abline().
faire apparaitre un chunk : - command + alt + i (macos) - control + alt + i (windows)
urlSHnice = "https://raw.githubusercontent.com/bilelsanhaji/EdSTM1/refs/heads/main/Data/SH_MIN006088001.csv"
SH_MIN006088001 <- read_delim(urlSHnice, #variable data raw du github
delim = ";", # separateur est ";"
escape_double = FALSE,
col_types = cols(YYYYMM = col_date(format = "%Y%m")),
comment = "#", trim_ws = TRUE)
tsplot(SH_MIN006088001$YYYYMM,SH_MIN006088001$VALEUR)
plot(SH_MIN006088001$YYYYMM, SH_MIN006088001$VALEUR, type = 'l', xlab = "Années", ylab = "Ensoleillement", main = "Ensoleillement à Nice (06)")
NICEdate = SH_MIN006088001$YYYYMM
NICEvaleur = SH_MIN006088001$VALEUR
plot(NICEdate, NICEvaleur, type = 'l', col = "darkblue", xlab = "Années", ylab = "Ensoleillement", main = "Ensoleillement à Nice (06)")
NICEmean = mean(NICEvaleur)
abline(h = NICEmean, col="darkred", lty = 2, lwd = 1.5)
abline()